0 REM:ARCAID1          E.G. 02-NOV-86
10 IFGL=500THEN160
20 IFGL=740THEN420
30 IFGL=760THEN440
50 PRINT"[147]            [195]REATE [193][210][195] FILE [146]"
60 PRINT"   [201][206][211][197][210][212] [196][201][211][203] WITH FILES TO BE [193][210][195]'D"
70 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
80 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO [205]AIN [205]ENU."
90 PRINT"       [193]NY OTHER KEY WILL CONTINUE.":POKE198,0
100 GETA$:IFA$=""THEN100
101 IFA$<>" "THEN120
107 PRINT"[147] [201][206][211][197][210][212] [196][201][211][203] WITH [193][210][195] [193][201][196] IN DRIVE 8,0"
108 PRINT"           AND PRESS ANY KEY."
109 GETA$:IFA$=""THEN109
110 PRINT"[147]";SPC(15);"[204]OADING..."
111 PRINT"[144]LOAD"CHR$(34)"ARC AID ?.?"CHR$(34)",8";:GOTO580
120 IFA$<>"$"THEN190
130 PRINT"[147]     [211][200][201][198][212] PAUSES,  [210][213][206]/[211][212][207][208] ABORTS."
140 PRINT"DIR":PRINT"":GL=500
150 GOTO580
160 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
170 GETA$:IFA$=""THEN170
180 GOTO50
190 PRINT"[147]            [195]REATE [193][210][195] FILE[146]"
220 INPUT"[193][210][195] FILE TO CREATE";F$:IFF$=""THENRUN
230 PRINT"[208]UT [158][196][197][211][212][201][206][193][212][201][207][206] [196][201][211][203][146] IN [196]RIVE 8,0"
240 IFA=9THEN340
245 IFATHENINPUT"[206]EXT FILENAME, OR [158][210][197][212][213][210][206][146]";FI$(A):GOTO260
250 INPUT"[198]ILENAME, OR [158][210][197][212][213][210][206][146]";FI$(A)
260 IFFI$(A)=""THEN340
270 PRINT"[156][207]N WHAT DRIVE CAN THIS FILE":INPUT"BE FOUND  8,0[157][157][157][157][157]";DV,DR
280 GOSUB470:FD$(A)=DR$
290 FORI=1TOLEN(FI$(A))
300 IFMID$(FI$(A),I,1)=" "THENTE$(A)=TE$(A)+"?":GOTO320
310 TE$(A)=TE$(A)+MID$(FI$(A),I,1)
320 NEXT
330 A=A+1:GOTO240
340 IFFI$(0)=""THENRUN
350 C$="ARC/C A:"+F$:EX$=""
360 FORI=0TOA-1
370 EX$=EX$+" "+FD$(I)+TE$(I)
380 NEXT
390 C$=C$+EX$
400 PRINT"[147]";C$:PRINT"":GL=740
410 GOTO580
420 PRINT"[147]ARC/L A:"F$:PRINT"":GL=760
430 GOTO580
440 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
450 GETA$:IFA$=""THEN450
460 RUN
470 DR$=""
480 IFDV=8ANDDR=0THENDR$="A:"
490 IFDV=8ANDDR=1THENDR$="B:"
500 IFDV=9ANDDR=0THENDR$="C:"
510 IFDV=9ANDDR=1THENDR$="D:"
520 IFDV=10ANDDR=0THENDR$="E:"
530 IFDV=10ANDDR=1THENDR$="F:"
540 IFDV=11ANDDR=0THENDR$="G:"
550 IFDV=11ANDDR=1THENDR$="H:"
560 RETURN
570 END
580 POKE631,13:POKE632,71:POKE633,207:POKE635,13:POKE636,13:POKE198,5:GOTO570